home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_480
/
tpledit
/
src
/
dumb.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
2KB
|
78 lines
/*
* TEST.C
*
* TEST GADGET COMPILATION
*
* WARNING WARNING. Non DICE C users must open appropriate libraries
*/
#include "x.c"
main()
{
struct Screen *scr;
struct Window *win;
struct Gadget *glist;
if (scr = LockPubScreen(NULL)) {
if (glist = InitGads(scr)) {
win = OpenWindowTags(NULL,
WA_Flags, WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|
WFLG_SIZEGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE,
WA_IDCMP, IDCMP_NEWSIZE|IDCMP_MOUSEBUTTONS|IDCMP_GADGETDOWN|
IDCMP_GADGETUP|IDCMP_MENUPICK|IDCMP_VANILLAKEY|
IDCMP_RAWKEY|IDCMP_CHANGEWINDOW|IDCMP_CLOSEWINDOW|
IDCMP_REFRESHWINDOW,
WA_Left, WIN_LEFT,
WA_Top, WIN_TOP,
WA_Width, WIN_WIDTH,
WA_Height, WIN_HEIGHT,
WA_Title, "TEST",
WA_MinWidth, 32,
WA_MinHeight, 32,
WA_MaxWidth, -1,
WA_MaxHeight, -1,
WA_AutoAdjust, 1,
WA_PubScreen, NULL,
WA_PubScreenFallBack, 1,
WA_Gadgets, glist,
TAG_END
);
if (win) {
struct IntuiMessage *im;
short notDone = 1;
GT_RefreshWindow(win, NULL);
while (notDone) {
WaitPort(win->UserPort);
while (im = GT_GetIMsg(win->UserPort)) {
switch(im->Class) {
case IDCMP_CLOSEWINDOW:
notDone = 0;
break;
case IDCMP_REFRESHWINDOW:
GT_BeginRefresh(win);
GT_EndRefresh(win, TRUE);
break;
case IDCMP_GADGETUP:
puts("Gadget was Hit");
break;
default:
break;
}
GT_ReplyIMsg(im);
}
}
CloseWindow(win);
}
}
FreeGads();
}
return(0);
}